DF2 <- rbind(DF, DF[7:8,, drop=FALSE])